Labels:text | screenshot | font | number OCR: A Unit 5 Das FomCreate procedure TForml. Formcreate(sender: Tobject); Tmpstr : string: a : integer; const. SReadingLineNumber - Reading Line Number: : begin for a :- 1 to 10 do begin TmpStr :- IntTostr (a); end; ShowMessage(sReadingLineNumber +Tmpstr); end; end. Figure 6; Variables automatically defined.